home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / mumble-packages.scm < prev    next >
Text File  |  1995-10-13  |  2KB  |  74 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4. ; This is for version 0.28
  5. ; We define these two because they aren't reified:
  6. ;   scheme-level-0
  7. ;   silly
  8.  
  9. ; We redefine these two so as not to compromise the security of the
  10. ; built-in exception and interrupt systems:
  11. ;   primitives
  12. ;   signals
  13.  
  14.  
  15. ; Suppose you have just done "make image" to build the scheme48 heap image.
  16. ; Suppose that the linker produces an initial.image, but that when that
  17. ; image is resumed you get the error
  18. ;     exception handler is not a closure
  19. ; This is not informative.  To find out what really happened, you have
  20. ; two choices:
  21. ;   (1) Run the image under the VM running in Scheme.
  22. ;   (2) Run the image using the following handy dandy tool.
  23. ; For choice (2), you would do something like the following:
  24. ;
  25. ;  ,translate =scheme48/ ./
  26. ;  ,config ,load debug/mumble-packages.scm
  27. ;  ,in link-config
  28. ;  y
  29. ;  ;; Cf. Makefile rule for initial.image
  30. ;  ,load interfaces.scm packages.scm debug/fix-low.scm
  31. ;  (flatload initial-structures)
  32. ;  ,load initial.scm
  33. ;  (define test (link-initial-system))
  34.  
  35. ; primitives-internal
  36. ; ,open ##
  37.  
  38. ; Replacement for the structure defined in link-packages.scm
  39. (define-structure linker (export link-simple-system
  40.                  link-reified-system
  41.                  (struct-list :syntax))
  42.   (open scheme
  43.         packages        ;make-simple-package
  44.         reification
  45.         ensures-loaded
  46.     )        ; (enum interrupt keyboard)
  47.   (files linker))
  48.  
  49. ; Copied from link-packages.scm
  50. (define-structure loadc (export load-configuration
  51.                 (structure-ref :syntax))
  52.   (open scheme
  53.     environments        ; *structure-ref
  54.     fluids)
  55.   (files ((".." link) loadc)))
  56.  
  57. ; Replacement for the structure defined in link-packages.scm
  58.  
  59. (define-structure link-config (export )  ;dummy structure...
  60.   (open scheme
  61.     linker
  62.     ;; low-structures
  63.     ;; start-debugging
  64.     defpackage
  65.     types
  66.     analysis
  67.     structure-refs    ;the real one
  68.     loadc          ;defines structure-ref, but not the one we want
  69.     flatloading
  70.     ensures-loaded
  71.     interfaces)
  72.   (access built-in-structures)
  73.   (begin 0))
  74.